home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_b / scoff.asm < prev    next >
Assembly Source File  |  1995-04-22  |  1KB  |  78 lines
  1. ;scoff - supercart off
  2. ;aycock, 9/87
  3. ;
  4. ;
  5.  *=$5555 ;out of the way
  6. ;
  7. ;
  8. dosvec   = $A
  9. rtclok   = $14
  10. ramtop   = $6A
  11. statsav  = $100
  12. iccom    = $342
  13. icbal    = $344
  14. icbah    = $345
  15. icax1    = $34A
  16. basicf   = $3F8
  17. cintlk   = $3FA
  18. crtstat  = $AFFF
  19. portb    = $D301
  20. ossoff   = $D508
  21. ciov     = $E456
  22. ;
  23. ;
  24.  .byte $60   ;RTS for no re-entry
  25. ;
  26. ;
  27. edev .byte "E:",$9B  ;in a safe place
  28. ;
  29. ;
  30. ;
  31. START          ;THE ENTRY POINT...
  32. ;
  33.  ldx #0        ;close E:
  34.  lda #12
  35.  sta iccom
  36.  jsr ciov
  37. ;
  38.  lda rtclok    ;wait for clock
  39. CHK            ; to change
  40.  cmp rtclok
  41.  beq CHK
  42. ;
  43.  sei           ;disable interrupts and
  44.  lda crtstat   ; the supercart
  45.  sta statsav
  46.  sta ossoff
  47.  lda #0
  48.  sta cintlk
  49. ;
  50.  lda #1        ;disable builtin basic
  51.  sta basicf
  52.  lda portb
  53.  ora #2
  54.  sta portb
  55. ;
  56.  lda #$C0      ;reset ramtop
  57.  sta ramtop
  58. ;
  59.  cli           ;enable interrupts and
  60.  ldx #0        ; reopen E:
  61.  lda #3
  62.  sta iccom
  63.  lda #edev & $FF
  64.  sta icbal
  65.  lda #edev / $100
  66.  sta icbah
  67.  lda #12
  68.  sta icax1
  69.  jsr ciov
  70. ;
  71.  jmp (dosvec)  ; back to Dos!
  72. ;
  73. ; INIT VECTOR
  74. ;
  75.  *=$2E2
  76. ;
  77.  .word START
  78.